#Algo de gestion des joueurs

proc algo_reception_joueurs {joueur} {
	global table_joueurs
	set numero_joueur [get_joueur_numero $joueur]
	set joueur_maj 0
	

	foreach i [lindex $table_joueurs 0] {
		set tmp [lsearch [lindex $i 0] $numero_joueur]

		if {$tmp==0} {
			set joueur_maj 1
		}
	}
	
	if {$joueur_maj==1} {
		maj_joueur $joueur
	} else {
		ajouter_joueur_joueur $joueur
	}
}

proc algo_time_out_envoie {} {
	#Fixer un time out
	#En supposant que le premier joueur dans la table des joueurs est "soi-même"
	global table_joueurs
	envoyer_joueur [lindex [lindex $table_joueurs 0] 0]
}

proc algo_time_out_joueurs {} {
	#Fixer un time out
	global table_joueurs
	global table_ast
	global seuil
	set compt 0
	foreach i [lindex $table_joueurs 0] {
		if {$compt != 0} {
			set heure_actuelle [clock seconds]
			set heure_joueur [get_joueur_date $i]
			if {[expr {$heure_actuelle - $heure_joueur}]>$seuil} {
				foreach j [lindex $table_ast 0] {
					supprimer_j_ast $i [lindex $j 0]
				}
				supprimer_joueur $i
			}
		}
		incr compt
	}
}
